home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
fb386
/
graf
/
a01.bas
< prev
next >
Wrap
BASIC Source File
|
1993-11-30
|
2KB
|
69 lines
1000 'A01.BAS***************************************************T.K.MOSAKU
1010 COLOR 7,0,0:CD PLAY 2
1020 '
1030 SCREEN@ 1:CLS
1040 LINE (49,49)-(271,191),PSET,5,B
1050 WAIT 100
1060 '
1070 G1=.15!*255:R1=1!*255 :B1=.15!*255':PRINT RND(1)
1080 G2=.75!*255:R2=.95!*255:B1=.75!*255':PRINT RND(2)
1090 FOR I=50 TO 190
1100 G=G1+((G2-G1)*I)/210
1110 R=R1+((R2-R1)*I)/220
1120 B=B1+((B2-B1)*I)/230
1130 LINE (50,I)-(270,I),PSET,[G,R,B]:WAIT 2
1140 NEXT
1150 WAIT 50
1160 '
1170 C=0:GOSUB *SHIRO
1180 WAIT 200
1190 '
1200 GOSUB *MOZI'
1210 GOTO 1670'
1220 '
1230 *SHIRO
1240 LINE (55, 188)-(265,190),PSET,C,BF
1250 LINE (70, 185)-(150,190),PSET,C,BF
1260 LINE (80, 175)-(120,190),PSET,C,BF
1270 LINE (115,180)-(135,190),PSET,C,BF
1280 LINE (106,123)-(110,123),PSET,C'ZYUUZIKA YOKO
1290 LINE (108,130)-(108,120),PSET,C'ZYUUZIKA TATE
1300 '
1310 LINE (103,155)-(113,190),PSET,C,BF'****************2
1320 LINE (103,155)-(108,130),PSET,C'*******************2
1330 LINE (108,130)-(113,155),PSET,C:PAINT (107,150),C'*2
1340 '
1350 LINE (115,165)-(125,190),PSET,C,BF'****************1
1360 LINE (115,165)-(120,140),PSET,C'*******************1
1370 LINE (120,140)-(125,165),PSET,C:PAINT (117,163),C'*1
1380 '
1390 LINE (91, 175)-(101,180),PSET,C,BF'****************3
1400 LINE (91, 175)-(96, 150),PSET,C'*******************3
1410 LINE (96, 150)-(101,175),PSET,C:PAINT (96,173),C'**3
1420 RETURN
1430 '
1440 *MOZI'
1450 A$="BASICによる":B$="グラフィックスのいろいろ"
1460 NA=LEN(A$):NB=LEN(B$)
1470 FOR I=0 TO NA/2-1
1480 SYMBOL@(70+13*I,75),MID$(A$,I*2+1,2),.9!,1!,1,,,4
1490 BEEP 1
1500 FOR J=1 TO 300 :NEXT J
1510 BEEP 0
1520 FOR D=1 TO 750:NEXT D
1530 NEXT I
1540 '
1550 WAIT 50
1560 FOR I=0 TO NB/2-1
1570 SYMBOL@(100+13*I,100),MID$(B$,I*2+1,2),.9!,1!,1,,,4
1580 BEEP 1
1590 FOR J=1 TO 300 :NEXT J
1600 BEEP 0
1610 FOR D=1 TO 750:NEXT D
1620 NEXT I
1630 WAIT 50
1640 LOCATE 52,19:COLOR 1:PRINT "BY T.K.MOSAKU"
1650 WAIT 200
1660 RETURN'
1670 '